;Standalone tool for setting minor group in CLG layernames.  (uses USTR MKLAYR)
(defun setminr ( / inp)
    (while
      (not
        (progn
          (setq inp (ustr 0 "\nEnter Minor Group Code (4 characters) " prod nil))
          (if
            (>(strlen inp) 4)
            (setq prod (substr inp 1 4))
            (setq prod (substr (strcat inp "0000") 1 4))
          );if
          (setq curlset (strcat (if mjrg mjrg "?")(if llt llt "-")(if prod prod "????")(if colra colra (if colr colr "?"))(if modf modf "")))
        );progn
      );not
    );while
    (eval curlset)
    (if mklayr nil (load"mklayr"))
    (c:mklayr)
);defun setminr.lsp
;*
